home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / powerd / lib / powerd_lib.lha / PowerD / MapList.ass < prev    next >
Encoding:
Text File  |  2000-02-26  |  396 b   |  26 lines

  1. ; a2 - variable address
  2. ; a1 - src list
  3. ; d0 - count
  4. ; a3 - dest list
  5. ; a0 - quote address
  6.  
  7.     xdef    _MapList
  8.  
  9. _MapList    move.w    d0,d2        ; count
  10.     move.l    a3,-(a7)
  11.     move.w    -4(a3),d0
  12.     cmp.w    -2(a1),d0
  13.     bmi.s    .1
  14.     move.w    -2(a1),-2(a3)
  15.     beq.s    .1
  16.     subq.l    #1,d2
  17. ;    move.l    d0,d1
  18. .l:    move.l    (a1)+,(a2)
  19.     movem.l    d2/a0-a3,-(a7)
  20.     jsr    (a0)
  21.     movem.l    (a7)+,d2/a0-a3
  22.     move.l    d0,(a3)+
  23.     dbra    d2,.l
  24. .1:    move.l    (a7)+,d0
  25.     rts
  26.